<%
'--------------------------------------------------------------------------------------------
'Questa funzione serve a controllare che i file singoli non siano
'richiamati dal browser ma solo da OpenAsp, nel caso in cui il browser tenta di aprire tali file
'l'utente viene subito rimandato alla homepage del sito
'splitto la stringa SQL per recuperare la pagina che si cerca di aprire
i = split(request.ServerVariables("HTTP_URL"), "/")
'confronto il nome del modulo con la funzione Ubound che mi restituisce il massimo
'valore dell'array, quindi il nome della pagina richiesta dall'utente, se coincidono
'rimando alla index
if strComp("delcat.asp", i(Ubound(i)), 1) = 0 then
  response.redirect request.servervariables("HTTP_REFERER")
end if
%>
<div id="position">
      <a href="admin.asp" class="testo">Control Center</a> &raquo;<%=traduci("ling_occ_news_09")%>
</div>
<div id="page">
<%
'------------LIMITO IL BLOCCO AI SOLI ADMIN------------
Call onlyADM(session("uID"), "news")
'------------------------------------------------------
Sub eliminaNEWS(id)
if id <> "" then
 Set delNews = addConn.Execute("DELETE FROM TB_NEWS WHERE IDnews =" & id)
 Set delNews = Nothing
end if
End sub

Sub eliminaTOPIC(id)
 Set topic = addConn.Execute("SELECT IDtopic, IDnews FROM TB_NEWS WHERE IDtopic =" & ID)
 if NOT topic.EOF then
 DO while NOT topic.EOF
  eliminaNEWS(topic("IDnews"))
 topic.MoveNext
 Loop
   end if
 Set topic = Nothing
 Set delNews = addConn.Execute("DELETE FROM TB_NEWS_TOPIC WHERE IDtopic =" & ID)
 Set delNews = Nothing 
End sub

Select case request.QueryString("pass")
'All'utente viene chiesta conferma
 CASE 0:

%>
	<div class="testo" style="text-align:center;">
	 	<%=traduci("ling_news_65")%>
		 <br /><br />
		 <button onClick="javascript:location.href='admin.asp?modulo=news&amp;op=admin_create_topic'" class="buttonclass"><%=traducisys("ling_112")%></button>
	 	<button onClick="javascript:location.href='admin.asp?modulo=news&amp;op=deltopic&amp;id=<%=request("id")%>&amp;pass=1'" class="buttonclass"><%=traducisys("ling_111")%></button>	 
	</div>
<%
 CASE 1:
   topicID = request.QueryString("id")
   eliminaTOPIC(topicID)
	  'Richiamo la sub per cambiare automaticamente pagina	  
   	  call autoReturn("admin.asp?modulo=news&op=admin_create_topic", 2)		
 end select
%>
</div>